home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / dpmainc.c < prev    next >
C/C++ Source or Header  |  1996-09-06  |  8KB  |  311 lines
  1. /* Copyright (C) 1996, Russell Lang.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19.  
  20. /* dpmainc.c */
  21. /* Ghostscript DLL loader for OS/2 */
  22. /* For WINDOWCOMPAT (console mode) application */
  23.  
  24. /* Russell Lang  1996-06-05 */
  25.  
  26. #define INCL_DOS
  27. #define INCL_WIN
  28. #include <os2.h>
  29. #include <stdio.h>
  30. #include <string.h>
  31. #include "gscdefs.h"
  32. #define GS_REVISION gs_revision
  33. #include "gsdll.h"
  34.  
  35. #define MAXSTR 256
  36. const char *szDllName = "GSDLL2.DLL";
  37. char start_string[] = "systemdict /start get exec\n";
  38. int debug = FALSE;
  39.  
  40. /* main structure with info about the GS DLL */
  41. typedef struct tagGSDLL {
  42.     BOOL        valid;        /* true if loaded */
  43.     HMODULE        hmodule;    /* handle to module */
  44.     /* pointers to DLL functions */
  45.     PFN_gsdll_revision    revision;
  46.     PFN_gsdll_init        init;
  47.     PFN_gsdll_exit        exit;
  48.     PFN_gsdll_execute_begin    execute_begin;
  49.     PFN_gsdll_execute_cont    execute_cont;
  50.     PFN_gsdll_execute_end    execute_end;
  51.     PFN_gsdll_get_bitmap    get_bitmap;
  52.     PFN_gsdll_lock_device    lock_device;
  53.     /* pointer to os2dll device */
  54.     char    *device;
  55. } GSDLL;
  56. GSDLL gsdll;
  57.  
  58. void
  59. gs_addmess(char *str)
  60. {
  61.     fputs(str, stdout);
  62. }
  63.  
  64. /* free GS DLL */
  65. /* This should only be called when gsdll_execute has returned */
  66. /* TRUE means no error */
  67. BOOL
  68. gs_free_dll(void)
  69. {
  70. char buf[MAXSTR];
  71. APIRET rc;
  72.     if (gsdll.hmodule == (HMODULE)NULL)
  73.         return TRUE;
  74.     rc = DosFreeModule(gsdll.hmodule);
  75.     if (rc) {
  76.         sprintf(buf,"DosFreeModule returns %d\n", rc);
  77.         gs_addmess(buf);
  78.         sprintf(buf,"Unloaded GSDLL\n\n");
  79.         gs_addmess(buf);
  80.     }
  81.     return !rc;
  82. }
  83.  
  84. void
  85. gs_load_dll_cleanup(void)
  86. {
  87. char buf[MAXSTR];
  88.     gs_free_dll();
  89.     fprintf(stdout, "Can't load Ghostscript DLL %s", szDllName);
  90. }
  91.  
  92. /* load GS DLL if not already loaded */
  93. /* return TRUE if OK */
  94. BOOL
  95. gs_load_dll(void)
  96. {
  97. char buf[MAXSTR+40];
  98. APIRET rc;
  99. char *p;
  100. int i;
  101. long revision;
  102. const char *dllname;
  103. PTIB pptib;
  104. PPIB pppib;
  105. char szExePath[MAXSTR];
  106. char fullname[1024];
  107. const char *shortname;
  108.  
  109.     if ( (rc = DosGetInfoBlocks(&pptib, &pppib)) != 0 ) {
  110.     fprintf(stdout,"Couldn't get pid, rc = \n", rc);
  111.     return FALSE;
  112.     }
  113.  
  114.     /* get path to EXE */
  115.     if ( (rc = DosQueryModuleName(pppib->pib_hmte, sizeof(szExePath), szExePath)) != 0 ) {
  116.     fprintf(stdout,"Couldn't get module name, rc = %d\n", rc);
  117.     return FALSE;
  118.     }
  119.     if ((p = strrchr(szExePath,'\\')) != (char *)NULL) {
  120.     p++;
  121.     *p = '\0';
  122.     }
  123.  
  124.     dllname = szDllName;
  125.     if (debug) {
  126.         sprintf(buf, "Trying to load %s\n", dllname);
  127.         gs_addmess(buf);
  128.     }
  129.     memset(buf, 0, sizeof(buf));
  130.     rc = DosLoadModule(buf, sizeof(buf), dllname, &gsdll.hmodule);
  131.     if (rc) {
  132.         /* failed */
  133.         /* try again, with path of EXE */
  134.         if ((shortname = strrchr((char *)szDllName, '\\')) == (const char *)NULL)
  135.         shortname = szDllName;
  136.         strcpy(fullname, szExePath);
  137.         if ((p = strrchr(fullname,'\\')) != (char *)NULL)
  138.         p++;
  139.         else
  140.         p = fullname;
  141.         *p = '\0';
  142.         strcat(fullname, shortname);
  143.         dllname = fullname;
  144.         if (debug) {
  145.             sprintf(buf, "Trying to load %s\n", dllname);
  146.             gs_addmess(buf);
  147.         }
  148.         rc = DosLoadModule(buf, sizeof(buf), dllname, &gsdll.hmodule);
  149.         if (rc) {
  150.         /* failed again */
  151.         /* try once more, this time on system search path */
  152.         dllname = shortname;
  153.         if (debug) {
  154.             sprintf(buf, "Trying to load %s\n", dllname);
  155.             gs_addmess(buf);
  156.         }
  157.             rc = DosLoadModule(buf, sizeof(buf), dllname, &gsdll.hmodule);
  158.         }
  159.     }
  160.  
  161.  
  162.     if (rc == 0) {
  163.         if (debug)
  164.             gs_addmess("Loaded Ghostscript DLL\n");
  165.         if ((rc = DosQueryProcAddr(gsdll.hmodule, 0, "GSDLL_REVISION", (PFN *)(&gsdll.revision)))!=0) {
  166.             sprintf(buf, "Can't find GSDLL_REVISION, rc = %d\n", rc);
  167.         gs_addmess(buf);
  168.         gs_load_dll_cleanup();
  169.         return FALSE;
  170.         }
  171.         /* check DLL version */
  172.         gsdll.revision(NULL, NULL, &revision, NULL);
  173.         if (revision != GS_REVISION) {
  174.         sprintf(buf, "Wrong version of DLL found.\n  Found version %ld\n  Need version  %ld\n", revision, (long)GS_REVISION);
  175.         gs_addmess(buf);
  176.         gs_load_dll_cleanup();
  177.         return FALSE;
  178.         }
  179.         if ((rc = DosQueryProcAddr(gsdll.hmodule, 0, "GSDLL_INIT", (PFN *)(&gsdll.init)))!=0) {
  180.             sprintf(buf, "Can't find GSDLL_INIT, rc = %d\n", rc);
  181.         gs_addmess(buf);
  182.         gs_load_dll_cleanup();
  183.         return FALSE;
  184.         }
  185.         if ((rc = DosQueryProcAddr(gsdll.hmodule, 0, "GSDLL_EXECUTE_BEGIN", (PFN *)(&gsdll.execute_begin)))!=0) {
  186.             sprintf(buf, "Can't find GSDLL_EXECUTE_BEGIN, rc = %d\n", rc);
  187.         gs_addmess(buf);
  188.         gs_load_dll_cleanup();
  189.         return FALSE;
  190.         }
  191.         if ((rc = DosQueryProcAddr(gsdll.hmodule, 0, "GSDLL_EXECUTE_CONT", (PFN *)(&gsdll.execute_cont)))!=0) {
  192.             sprintf(buf, "Can't find GSDLL_EXECUTE_CONT, rc = %d\n", rc);
  193.         gs_addmess(buf);
  194.         gs_load_dll_cleanup();
  195.         return FALSE;
  196.         }
  197.         if ((rc = DosQueryProcAddr(gsdll.hmodule, 0, "GSDLL_EXECUTE_END", (PFN *)(&gsdll.execute_end)))!=0) {
  198.             sprintf(buf, "Can't find GSDLL_EXECUTE_END, rc = %d\n", rc);
  199.         gs_addmess(buf);
  200.         gs_load_dll_cleanup();
  201.         return FALSE;
  202.         }
  203.         if ((rc = DosQueryProcAddr(gsdll.hmodule, 0, "GSDLL_EXIT", (PFN *)(&gsdll.exit)))!=0) {
  204.             sprintf(buf, "Can't find GSDLL_EXIT, rc = %d\n", rc);
  205.         gs_addmess(buf);
  206.         gs_load_dll_cleanup();
  207.         return FALSE;
  208.         }
  209.         if ((rc = DosQueryProcAddr(gsdll.hmodule, 0, "GSDLL_GET_BITMAP", (PFN *)(&gsdll.get_bitmap)))!=0) {
  210.             sprintf(buf, "Can't find GSDLL_GET_BITMAP, rc = %d\n", rc);
  211.         gs_addmess(buf);
  212.         gs_load_dll_cleanup();
  213.         return FALSE;
  214.         }
  215.         if ((rc = DosQueryProcAddr(gsdll.hmodule, 0, "GSDLL_LOCK_DEVICE", (PFN *)(&gsdll.lock_device)))!=0) {
  216.             sprintf(buf, "Can't find GSDLL_LOCK_DEVICE, rc = %d\n", rc);
  217.         gs_addmess(buf);
  218.         gs_load_dll_cleanup();
  219.         return FALSE;
  220.         }
  221.     }
  222.     else {
  223.         sprintf(buf, "Can't load Ghostscript DLL %s \nDosLoadModule rc = %d\n", szDllName, rc);
  224.         gs_addmess(buf);
  225.         gs_load_dll_cleanup();
  226.         return FALSE;
  227.     }
  228.     return TRUE;
  229. }
  230.  
  231.  
  232. int
  233. read_stdin(char FAR *str, int len)
  234. {
  235. int ch;
  236. int count = 0;
  237.     while (count < len) {
  238.     ch = fgetc(stdin);
  239.     if (ch == EOF)
  240.         return count;
  241.     *str++ = ch;
  242.     count++;
  243.     if (ch == '\n')
  244.         return count;
  245.     }
  246.     return count;
  247. }
  248.  
  249. int 
  250. gsdll_callback(int message, char *str, unsigned long count)
  251. {
  252. char *p;
  253.     switch (message) {
  254.     case GSDLL_STDIN:
  255.         return read_stdin(str, count);
  256.     case GSDLL_STDOUT:
  257.         if (str != (char *)NULL)
  258.         fwrite(str, 1, count, stdout);
  259.         fflush(stdout);
  260.         return count;
  261.     case GSDLL_DEVICE:
  262.         if (count)
  263.         fprintf(stdout, "os2dll device not supported in this version of Ghostscript\n");
  264.         fprintf(stdout,"Callback: DEVICE %p %s\n", str,
  265.         count ? "open" : "close");
  266.         break;
  267.     case GSDLL_SYNC:
  268.         fprintf(stdout,"Callback: SYNC %p\n", str);
  269.         break;
  270.     case GSDLL_PAGE:
  271.         fprintf(stdout,"Callback: PAGE %p\n", str);
  272.         break;
  273.     case GSDLL_SIZE:
  274.         fprintf(stdout,"Callback: SIZE %p width=%d height=%d\n", str,
  275.         (int)(count & 0xffff), (int)((count>>16) & 0xffff) );
  276.         break;
  277.     case GSDLL_POLL:
  278.         return 0; /* no error */
  279.     default:
  280.         fprintf(stdout,"Callback: Unknown message=%d\n",message);
  281.         break;
  282.     }
  283.     return 0;
  284. }
  285.  
  286. int
  287. main(int argc, char *argv[])
  288. {
  289. int code;
  290.     if (!gs_load_dll()) {
  291.     fprintf(stderr, "Can't load %s\n", szDllName);
  292.     return -1;
  293.     }
  294.     code = gsdll.init(gsdll_callback, (HWND)NULL, argc, argv);
  295.     if (!code)
  296.         code = gsdll.execute_begin();
  297.     if (!code) {
  298.     code = gsdll.execute_cont(start_string, strlen(start_string));
  299.     if (!code) {
  300.         gsdll.execute_end();
  301.         gsdll.exit();
  302.     }
  303.     else
  304.         code = gsdll.exit();
  305.     }
  306.     gs_free_dll();
  307.     if (code == GSDLL_INIT_QUIT)
  308.     return 0;
  309.     return code;
  310. }
  311.